home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / tifdsp / treecnv.bas < prev    next >
Encoding:
BASIC Source File  |  1993-11-30  |  575 b   |  23 lines
  1. 10 'SAVE "TREECNV.BAS",A
  2. 20 CLEAR ,,512,600000,0
  3. 30 FILES
  4. 40 INPUT "input filename=",N$
  5. 50 'N$="FREE2"
  6. 60 OPEN "I",#1,N$+".TRE":CLS:LOCATE 0,24
  7. 70 OPEN "O",#2,N$+".TIF":CLS:LOCATE 0,24
  8. 80 LINE INPUT #1,A$
  9. 90 LINE INPUT #1,A$
  10. 100 WHILE NOT(EOF(1))
  11. 110 LINE INPUT #1,A$':PRINT A$:INPUT SS$
  12. 120 IF INSTR(A$,".tif")=0 AND INSTR(A$,".TIF")=0 THEN 170
  13. 125 'PRINT A$
  14. 130 LLL=INSTR(A$," "):IF LLL=0 THEN 145
  15. 140 A$=LEFT$(A$,LLL-1)
  16. 145 'PRINT LLL;:PRINT A$':INPUT SS$
  17. 150 PRINT #2,A$
  18. 160 COLOR 2:PRINT A$:COLOR 7:':INPUT SS$
  19. 170 WEND
  20. 175 CLOSE
  21. 180 FILES
  22. 190 END
  23.